home *** CD-ROM | disk | FTP | other *** search
/ Long Ban 3 / Long Ban 3 - Disc 2.iso / mac / DISK2 / DATA / phot.Dxr / 00022.ls < prev    next >
Encoding:
Text File  |  1997-03-22  |  1.2 KB  |  67 lines
  1. on exitFrame
  2.   if isslideshowtimeout() and isautomode() then
  3.     startslideshowtimer()
  4.     go(the frame + 1)
  5.   else
  6.     go(the frame)
  7.   end if
  8. end
  9.  
  10. on wait t
  11.   set wk to the ticks + (t * 60.0)
  12.   repeat while wk > the ticks
  13.     nothing()
  14.   end repeat
  15. end
  16.  
  17. on buttonaction sp
  18.   set the visible of sprite sp to 0
  19.   puppetSound("Laser.aif", 2)
  20.   updateStage()
  21.   wait(0.5)
  22.   set the visible of sprite sp to 1
  23.   puppetSound(0, 2)
  24.   updateStage()
  25. end
  26.  
  27. on buttonaction2 sp
  28.   set the visible of sprite sp to 0
  29.   updateStage()
  30.   wait(1)
  31.   set the visible of sprite sp to 1
  32.   updateStage()
  33. end
  34.  
  35. on mouseDown
  36.   global pss
  37.   set sp to the clickOn
  38.   case sp of
  39.     2, 3, 4:
  40.       setspeed(sp - 1)
  41.     6:
  42.       buttonaction(sp)
  43.       go(1, "menu")
  44.     7:
  45.       buttonaction(sp)
  46.       quit()
  47.     8:
  48.       set the visible of sprite 5 to 1
  49.       buttonaction2(sp)
  50.       if pss = 3 then
  51.         go("FIN3")
  52.       else
  53.         go("FIN2")
  54.       end if
  55.     9:
  56.       set the visible of sprite 5 to 1
  57.       buttonaction2(sp)
  58.       go(the frame + 1)
  59.     10:
  60.       if the visible of sprite 5 = 0 then
  61.         set the visible of sprite 5 to 1
  62.       else
  63.         set the visible of sprite 5 to 0
  64.       end if
  65.   end case
  66. end
  67.